home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
qbbs
/
ques_221.zip
/
SAMPLES.ZIP
/
TIMEBANK.ZIP
/
TIMEBANK.Q-A
< prev
Wrap
Text File
|
1990-08-24
|
6KB
|
304 lines
:hoofd
gosublabel logo
changecolor 15 0
display " <"
changecolor 11 0
display " 1 "
changecolor 15 0
display "> "
changecolor 14 0
display "View your account|"
changecolor 15 0
display " <"
changecolor 11 0
display " 2 "
changecolor 15 0
display "> "
changecolor 14 0
display "View all acounts in the timebank|"
changecolor 15 0
display " <"
changecolor 11 0
display " 3 "
changecolor 15 0
display "> "
changecolor 14 0
display "Deposite time in your account|"
changecolor 15 0
display " <"
changecolor 11 0
display " 4 "
changecolor 15 0
display "> "
changecolor 14 0
display "Redraw time from your account|"
changecolor 15 0
display " <"
changecolor 11 0
display " 5 "
changecolor 15 0
display "> "
changecolor 14 0
display "Transfer time to a friend|"
changecolor 15 0
display " <"
changecolor 11 0
display " 6 "
changecolor 15 0
display "> "
changecolor 14 0
display "Buy a lottery ticket|"
changecolor 15 0
display " <"
changecolor 11 0
display " 7 "
changecolor 15 0
display "> "
changecolor 14 0
display "Borrow time from bank|"
changecolor 15 0
display " <"
changecolor 11 0
display " 8 "
changecolor 15 0
display "> "
changecolor 14 0
display "Rob the bank|"
changecolor 15 0
display " <"
changecolor 11 0
display " 0 "
changecolor 15 0
display "> "
changecolor 14 0
display "Quit|"
display "|"
display " You have "
changecolor 11 0
listtimeleft
changecolor 14 0
display " minutes left|"
display " Your choice: "
getchoice 123456780 1
display "|"
:
if 1 = "1"
clearscreen
changecolor 4 0
showaccount
display "|"
changecolor 4 0
display "Press [ENTER] to continue:"
ask 0 1
gotolabel hoofd
endif
if 1 = "2"
clearscreen
showclients
changecolor 4 0
display "Press [ENTER] to continue:"
ask 0 1
gotolabel hoofd
endif
if 1 = "3"
gosublabel deposit
display "|"
depostime 120
display "|"
changecolor 4 0
display "Press [ENTER] to continue:"
ask 0 1
gotolabel hoofd
endif
if 1 = "4"
gosublabel redraw
display "|"
redrawtime
display "|"
changecolor 4 0
display "Press [ENTER] to continue:"
ask 0 1
gotolabel hoofd
endif
if 1 = "5"
gosublabel transtime
transtime
display "|"
changecolor 4 0
display "Press [ENTER] to continue:"
ask 0 1
gotolabel hoofd
endif
if 1 = "6"
gosublabel lottery
buyticket 5 3 20 60
display "|"
changecolor 4 0
display "Press [ENTER] to continue:"
ask 0 1
gotolabel hoofd
endif
if 1 = "7"
gosublabel borrowtime
display "|"
borrowtime 30 10
display "|"
changecolor 4 0
display "Press [ENTER] to continue:"
ask 0 1
gotolabel hoofd
endif
if 1 = "0"
clearscreen
delete timebank.asw
quit
endif
if 1 = "8"
gosublabel robbank
display "|"
robbank 10
outputlog "Succesfully robbed the bank!"
display "|"
display "Press [ENTER] to continue:"
ask 0 1
gotolabel hoofd
endif
:logo
clearscreen
displayfile timebank
display "|"
:
:lottery
clearscreen
display "|"
display " "
changecolor 14 4
output " QUESDOOR's TIMEBANK "
changecolor 7 0
output " "
output " The local Lottery"
output " "
output "The local lottery sells lottery ticket for 5 minutes each."
output "Whenever you buy one, this time will be substracted from your"
output "account here."
output "Everytime when there are 20 lottery tickets sold, this local"
output "lottery will randomly choose a winning lottery ticket, and the"
output "holder of that ticket will automaticly recieves his price in"
output "his account."
output " "
changecolor 14 0
display "The price during this lottery run is: "
changecolor 15 0
display "60"
changecolor 14 0
display " minutes!|"
output " "
output " "
changecolor 15 0
:
:deposit
clearscreen
display "|"
display " "
changecolor 14 4
output " QUESDOOR's TIMEBANK "
changecolor 7 0
output " "
output " Depositing time"
output " "
:
:redraw
clearscreen
display "|"
display " "
changecolor 14 4
output " QUESDOOR's TIMEBANK "
changecolor 7 0
output " "
output " Redraw time"
output " "
:
:transtime
clearscreen
display "|"
display " "
changecolor 14 4
output " QUESDOOR's TIMEBANK "
changecolor 7 0
output " "
output " Transfer time"
output " "
output "When you transfer time to another timebank user, the next"
output "time he or she logs on, their account will be that much"
output "more."
output "Once you lend someone some time, you will never see that"
output "time again! Unless, of course, you decide to attempt a"
output "robbery..."
output " "
output " "
changecolor 15 0
:
:borrowtime
clearscreen
display "|"
display " "
changecolor 14 4
output " QUESDOOR's TIMEBANK "
changecolor 7 0
output " "
output " Borrow time"
output " "
output "If you need extra time for a big download or to do other nice"
output "things on the bbs, you could take a loan at this bank."
output "You can only once borrow time!"
output "Every deposite you make will be substracted from this loan, "
output "and until this loan is payed back completely, you can't store"
output "time in your account."
output " "
:
:robbank
clearscreen
display "|"
display " "
changecolor 14 4
output " QUESDOOR's TIMEBANK "
changecolor 7 0
output " "
output " Rob the bank"
output " "
output "When you are really desperite in need of extra time, you"
output "can try to rob the bank."
output " "
output "But to do that, you need to have a certain amount of luck,"
output "because all sort of things can happen. And then the judge"
output "will rule hard: you'll loss your account here as well as"
output "all your time left for today on the bbs.."
output " "
: